Fix warnings

entropia · Nov 5, 2022 · 0658847 · 0658847
1 parent 0704680
commit 0658847
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/OidTable.hs b/src/OidTable.hs
@@ -73,7 +73,7 @@ oidTable conf title entries | entriesPerPage < 1 = error "OID codes too large to
         }
 
     -- Configure-dependent dimensions (all in pt)
-    (imageWidth,imageHeight) = (*mm) *** (*mm) $ fromIntegral *** fromIntegral $cCodeDim conf
+    (imageWidth,imageHeight) = (*mm) *** (*mm) $ fromIntegral *** fromIntegral $ cCodeDim conf
 
     -- Static dimensions (all in pt)
 

diff --git a/src/OidTableSVG.hs b/src/OidTableSVG.hs
@@ -74,7 +74,7 @@ oidTableSvg conf usePNG title entries
                         $ fromString d
   where
     -- Configure-dependent dimensions (all in pt)
-    (imageWidth,imageHeight) = (*mm) *** (*mm) $ fromIntegral *** fromIntegral $cCodeDim conf
+    (imageWidth,imageHeight) = (*mm) *** (*mm) $ fromIntegral *** fromIntegral $ cCodeDim conf
 
     -- Static dimensions (all in pt)