diff options
-rw-r--r-- | hack.cabal | 18 | ||||
-rw-r--r-- | src/Main.hs | 16 |
2 files changed, 15 insertions, 19 deletions
@@ -1,14 +1,10 @@ -Name: hack -Version: 0.1 -Synopsis: Project Synopsis Here -Description: Project Description Here -License: MIT -Author: Author -Maintainer: maintainer@example.com -Stability: Experimental -Category: Web -Build-type: Simple -Cabal-version: >=1.2 +name: hack +version: 1.0.0 +license: MIT +author: tv +maintainer: tv@krebsco.de +build-type: Simple +cabal-version: >=1.2 library build-depends: base diff --git a/src/Main.hs b/src/Main.hs index ece6266..7d263e3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -42,6 +42,14 @@ data Mode | YankMode deriving (Eq) +instance Show Mode where + show NormalMode = "normal" + show InsertMode = "insert" + show VerbatimMode = "verbatim" + show SelectRegisterMode = "select register" + show DeleteMode = "delete" + show YankMode = "yank" + data VTConfig = VTConfig { withOutput :: IO () -> IO () @@ -586,14 +594,6 @@ ymap = type Keymap = [(String, Command)] -instance Show Mode where - show NormalMode = "normal" - show InsertMode = "insert" - show VerbatimMode = "verbatim" - show SelectRegisterMode = "select register" - show DeleteMode = "delete" - show YankMode = "yank" - getCommand :: Mode -> String -> Command |