Skip to content

Commit

Permalink
🧩 [consolidate]: Remove spurious use of botOf.
Browse files Browse the repository at this point in the history
  • Loading branch information
rolyp committed Sep 27, 2023
1 parent 05fd4fc commit bbd78a6
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions src/Module.purs
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,6 @@ import Expr (traverseModule)
import Graph (class Graph, Vertex)
import Graph (empty) as G
import Graph.GraphWriter (class MonadGraphAlloc, alloc, fresh, runWithGraphAllocT)
import Lattice (botOf)
import Parse (module_, program)
import Parsing (runParser)
import Primitive.Defs (primitives)
Expand Down Expand Up @@ -53,7 +52,7 @@ parse src = liftEither <<< mapLeft (error <<< show) <<< runParser src

parseProgram :: forall m. MonadAff m => MonadError Error m => Folder -> File -> m (S.Expr Unit)
parseProgram folder file =
loadFile folder file >>= flip parse (program <#> botOf)
loadFile folder file >>= flip parse program

open :: forall m. MonadAff m => MonadError Error m => File -> m (S.Expr Unit)
open = parseProgram (Folder "fluid/example")
Expand Down

0 comments on commit bbd78a6

Please sign in to comment.