From a1e5121e5b9ecbfe86cb10a0919b44a664d2a0f8 Mon Sep 17 00:00:00 2001
From: Patrick Thomson <patrickt@github.com>
Date: Tue, 26 Jun 2018 11:00:41 -0400
Subject: [PATCH] kill Emacs swap file

---
 src/Numeric/#Exts.hs# | 77 -------------------------------------------
 1 file changed, 77 deletions(-)
 delete mode 100644 src/Numeric/#Exts.hs#

diff --git a/src/Numeric/#Exts.hs# b/src/Numeric/#Exts.hs#
deleted file mode 100644
index f1e25b68a..000000000
--- a/src/Numeric/#Exts.hs#
+++ /dev/null
@@ -1,77 +0,0 @@
-module Numeric.Exts
-  ( parseInteger
-  , hex
-  , oct
-  , bin
-  , attempt
-  , lengths
-  ) where
-
-import Control.Applicative
-import Control.Monad hiding (fail)
-import Data.Attoparsec.Text
-import Data.Char (isDigit, isOctDigit)
-import Data.Text
-import Numeric
-import Prelude hiding (fail, filter)
-import Prologue
-import Text.Read (readMaybe)
-
--- The ending stanza. Note the explicit endOfInput call to ensure we haven't left any dangling input.
-lengths :: Parser ()
-lengths = skipWhile (inClass "iIjJlL") *> endOfInput
-
-
--- Parse a hex value, leaning on the parser provided by Attoparsec.
-hex :: Num a => Parser a
-hex = do
-  void (char '0')
-  void (char 'x' <|> char 'X')
-  fromIntegral <$> hexadecimal @Integer <* lengths
-
--- We lean on Haskell's octal integer support, parsing
--- the given string as an integer then coercing it to a Scientific.
-oct :: Num a => Parser a
-oct = do
-  void (char '0')
-  optional (char 'o' <|> char 'O')
-  skipWhile (inClass "Oo") -- this can fail!
-  digs <- takeWhile1 isOctDigit <* lengths
-  fromIntegral <$> attempt @Integer (unpack ("0o" <> digs)) <* lengths
-
--- The case for binary literals is somewhat baroque. Despite having binary literal support, Integer's
--- Read instance does not handle binary literals. So we have to shell out to Numeric.readInt, which
--- is a very strange API, but works for our use case. The use of 'error' looks partial, but if Attoparsec
--- and readInt do their jobs, it should never happen.
-bin :: (Show a, Num a) => Parser a
-bin = do
-  void (char '0')
-  skipWhile1 (inClass "bB")
-  let isBin = inClass "01"
-  digs <- unpack <$> (takeWhile1 isBin <* lengths)
-  let c2b c = case c of
-        '0' -> 0
-        '1' -> 1
-        x   -> error ("Invariant violated: both Attoparsec and readInt let a bad digit through: " <> [x])
-  let res = readInt 2 isBin c2b digs
-  case res of
-    []        -> fail ("No parse of binary literal: " <> digs)
-    [(x, "")] -> x <$ lengths
-    others    -> fail ("Too many parses of binary literal: " <> show others)
-
--- Wrapper around readMaybe.
-attempt :: Read a => String -> Parser a
-attempt str = maybeM (fail ("No parse: " <> str)) (readMaybe str)
-
-parseInteger :: Text -> Either String Integer
-parseInteger = parseOnly integerParser
-
--- | A simplified version of parseScientific.
-integerParser :: Parser Integer
-integerParser = signed (choice [hex, oct, bin, dec]) where
-  dec = do
-    let notUnder = filter (/= '_')
-    let decOrUnder c = isDigit c || (c == '_')
-    contents <- notUnder <$> takeWhile1 decOrUnder
-    void lengths
-    attempt (unpack contents)