urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-19 00:13:12 +03:00
Code Issues Packages Projects Releases Wiki Activity

kh: implement null check correctly

Browse Source
This commit is contained in:
fang 2021-06-17 20:30:20 +02:00
parent ddf579bd75
commit b3964c97a6
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkg/hs/urbit-king/lib/Urbit/Vere/Term/Logic.hs
View File

@ -113,8 +113,8 @@ drawState :: St -> [Ev]
drawState St{..} = hist <> out <> cur <> spin
where
hist = drawHistory <$> toList sHistory
out | null <- sLine = []
| otherwise = [EvEdit sLine]
out | null sLine = []
| otherwise = [EvEdit sLine]
cur | (0, _) <- sCurPos = []
| otherwise = [EvMove sCurPos]
spin = maybe [] (singleton . EvSpin . Just) sSpinner