Haskell-Things/ImplicitCAD
1
1
Fork 0
mirror of https://github.com/Haskell-Things/ImplicitCAD.git synced 2024-09-19 08:57:33 +03:00
Code Issues Projects Releases Wiki Activity

use Type to eliminate a warning.

Browse Source
This commit is contained in:
Julia Longtin 2019-05-07 05:13:03 +01:00
parent 2a159909db
commit 1f98d8c570
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Graphics/Implicit/ExtOpenScad/Parser/Statement.hs
View File

@ -17,6 +17,8 @@ import Data.Maybe(Maybe(Just, Nothing))
import Data.Functor.Identity(Identity)
import Data.Kind (Type)
-- We use parsec to parse.
import Text.ParserCombinators.Parsec (try, sepBy, sourceLine, sourceColumn, GenParser, oneOf, space, char, getPosition, parse, many1, eof, string, ParseError, many, noneOf, Line, Column, (<|>), (<?>))
import Text.Parsec.Prim (ParsecT)
@ -256,12 +258,12 @@ moduleArgsUnitDecl = do
return argTemplate
-- | Find the line number. Used when generating errors.
lineNumber :: forall s u (m :: * -> *).
lineNumber :: forall s u (m :: Type -> Type).
Monad m => ParsecT s u m Line
lineNumber = fmap sourceLine getPosition
-- | Find the column number. Used when generating errors.
columnNumber :: forall s u (m :: * -> *).
columnNumber :: forall s u (m :: Type -> Type).
Monad m => ParsecT s u m Column
columnNumber = fmap sourceColumn getPosition