Commit 0034f84d authored by Sumit Sahrawat's avatar Sumit Sahrawat

Remove whitespace in IHaskell.Eval.Inspect

parent 2553fbda
...@@ -37,14 +37,13 @@ getIdentifier code pos = identifier ...@@ -37,14 +37,13 @@ getIdentifier code pos = identifier
then "(" ++ lastChunk ++ ")" then "(" ++ lastChunk ++ ")"
else lastChunk else lastChunk
inspect :: String -- ^ Code in the cell inspect :: String -- ^ Code in the cell
-> Int -- ^ Cursor position in the cell -> Int -- ^ Cursor position in the cell
-> Interpreter (Maybe Display) -> Interpreter (Maybe Display)
inspect code pos = do inspect code pos = do
let identifier = getIdentifier code pos let identifier = getIdentifier code pos
handler :: SomeException -> Interpreter (Maybe a) handler :: SomeException -> Interpreter (Maybe a)
handler _ = return Nothing handler _ = return Nothing
response <- ghandle handler (Just <$> getType identifier) response <- ghandle handler (Just <$> getType identifier)
let prefix = identifier ++ " :: " let prefix = identifier ++ " :: "
fmt str = Display [plain $ prefix ++ str] fmt str = Display [plain $ prefix ++ str]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment