whitespace

This commit is contained in:
Jonathan Daugherty 2015-05-09 00:58:01 -07:00
parent 7f09d6e5d1
commit 189ebe1298

View File

@ -184,4 +184,3 @@ focusPrev (FocusRingNonemtpy ns i) = FocusRingNonemtpy ns i'
focusGetCurrent :: FocusRing -> Maybe Name
focusGetCurrent FocusRingEmpty = Nothing
focusGetCurrent (FocusRingNonemtpy ns i) = Just $ ns !! i