diff --git a/pandoc-emphasize-code.cabal b/pandoc-emphasize-code.cabal
--- a/pandoc-emphasize-code.cabal
+++ b/pandoc-emphasize-code.cabal
@@ -5,7 +5,7 @@
 author:              Oskar Wickström
 maintainer:          Oskar Wickström
 homepage:	           https://github.com/owickstrom/pandoc-emphasize-code
-version:             0.2.2
+version:             0.2.3
 cabal-version:       >= 1.8
 build-type:          Simple
 category:            Documentation
diff --git a/src/Text/Pandoc/Filter/EmphasizeCode/Range.hs b/src/Text/Pandoc/Filter/EmphasizeCode/Range.hs
--- a/src/Text/Pandoc/Filter/EmphasizeCode/Range.hs
+++ b/src/Text/Pandoc/Filter/EmphasizeCode/Range.hs
@@ -40,7 +40,7 @@
 
 mkRange :: Position -> Position -> Maybe Range
 mkRange s e
-  | s < e = Just (Range s e)
+  | s <= e = Just (Range s e)
   | otherwise = Nothing
 
 rangeToTuple :: Range -> (Position, Position)
diff --git a/test/Text/Pandoc/Filter/EmphasizeCode/RangeTest.hs b/test/Text/Pandoc/Filter/EmphasizeCode/RangeTest.hs
--- a/test/Text/Pandoc/Filter/EmphasizeCode/RangeTest.hs
+++ b/test/Text/Pandoc/Filter/EmphasizeCode/RangeTest.hs
@@ -16,6 +16,9 @@
     mkLineRange' (line', start, end) = mkLineRange line' start end
 
 spec_mkRanges = do
+  it "accepts single-position range" $ do
+    rs <- mkRanges' [((1, 1), (1, 1))]
+    map rangeToTuples (rangesToList rs) `shouldBe` [((1, 1), (1, 1))]
   it "sorts ranges" $ do
     rs <- mkRanges' [((1, 1), (1, 7)), ((4, 1), (7, 2)), ((1, 8), (3, 4))]
     map rangeToTuples (rangesToList rs) `shouldBe`