@@ -26,7 +26,10 @@ atomTypeSignatureP :: Parser [TypeConstructor]
2626atomTypeSignatureP = sepBy typeConstructorP arrow
2727
2828dbContextIOExprP :: Parser DatabaseContextIOExpr
29−dbContextIOExprP = addAtomFunctionExprP <|> addDatabaseContextFunctionExprP <|> loadAtomFunctionsP
29+dbContextIOExprP = addAtomFunctionExprP <|>
30+ addDatabaseContextFunctionExprP <|>
31+ loadAtomFunctionsP <|>
32+ loadDatabaseContextFunctionsP
3033
3134loadAtomFunctionsP :: Parser DatabaseContextIOExpr
3235loadAtomFunctionsP = do