@@ -94,7 +94,7 @@ sexpToCommand (SexpList (x:[])) = se
9494sexpToCommand (SexpList [SymbolAtom "interpret", StringAtom cmd]) = Just (Interpret cmd)
9595sexpToCommand (SexpList [SymbolAtom "repl-completions", StringAtom prefix]) = Just (REPLCompletions prefix)
9696sexpToCommand (SexpList [SymbolAtom "load-file", StringAtom filename]) = Just (LoadFile filename)
97−sexpToCommand _ = Nothing
97+sexpToCommand _ = Nothing
9898
9999parseMessage :: String -> (SExp, Integer)
100100parseMessage x = case receiveString x of