diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-02 07:11:35 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-03-02 07:11:35 -0700 |
commit | 5b9576b50078ce8f67e911f60978d601ecc414cd (patch) | |
tree | 997399d3622ac365fe0d296346948d9791d312b9 /Presets.hs | |
parent | 5443d758bbc4d894e547d56a60b2be221fc7779a (diff) | |
download | sscan-5b9576b50078ce8f67e911f60978d601ecc414cd.tar.gz |
missing type signatures & alignment
Diffstat (limited to 'Presets.hs')
-rw-r--r-- | Presets.hs | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -44,6 +44,7 @@ presets = [ Preset 'H' "handwritten notes" handwrittenNotes lookupPreset :: Char -> Maybe Preset lookupPreset c = find (\(Preset k _ _) -> c == k) presets +handwrittenNotes :: St -> St handwrittenNotes = \st -> st { _stOCR = False , _stColour = Greyscale @@ -52,6 +53,7 @@ handwrittenNotes = \st -> st , _stOutFormat = PDF } +typewrittenDocs :: St -> St typewrittenDocs = \st -> st { _stOCR = True , _stColour = Greyscale @@ -60,6 +62,7 @@ typewrittenDocs = \st -> st , _stOutFormat = PDF } +colourPDF :: St -> St colourPDF = \st -> st { _stOCR = False , _stColour = Colour @@ -68,6 +71,7 @@ colourPDF = \st -> st , _stOutFormat = PDF } +colourPNG :: St -> St colourPNG = \st -> st { _stOCR = False , _stColour = Colour @@ -76,6 +80,7 @@ colourPNG = \st -> st , _stOutFormat = PNG } +colourCroppedPNG :: St -> St colourCroppedPNG = \st -> st { _stOCR = False , _stColour = Colour @@ -84,6 +89,7 @@ colourCroppedPNG = \st -> st , _stOutFormat = PNG } +bnwPDF :: St -> St bnwPDF = \st -> st { _stOCR = False , _stColour = Lineart @@ -92,6 +98,7 @@ bnwPDF = \st -> st , _stOutFormat = PDF } +photo :: St -> St photo = \st -> st { _stOCR = False , _stColour = Colour |